Language/OS - Multiplatform Resource Library/LANGUAGE OS.iso/oper_sys/emerald/emrldsys.lha/Language/ExecTests/taaaa.m

Text File | 1990-08-31 | 268b | 10 lines

import runtest from "RunTest"

const taaaa <- object taaaa
  const myTest == runtest.create[stdin, stdout, "It is supposed to fail"]
  process
    % each test looks like myTest.check[<boolean expression>, "<same exp>"]
    myTest.finish[false]
  end process
end taaaa